home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / util / cdity / AHelp1_3.lha / AHelp1_3 / Install < prev    next >
Encoding:
Text File  |  1999-08-08  |  4.4 KB  |  192 lines
  1. ;
  2. ; AHelp installer Script - by Software Failure/Airsoft
  3. ;
  4. ; if there are any problems, email me: Andreas.Falkenhahn@gmx.de
  5. ;
  6. ; last modified on 08-Aug-99
  7.  
  8. (message (cat "\n\nAHelp V1.3 \n\n(c) 1997-99 by Andreas Falkenhahn\nArtworX by THE FALCONER\n\n"
  9.               "This script installs AHelp and the prefs\n"
  10.               "program to your harddisk and makes it ready\n"
  11.               "to use."
  12.          )
  13. )
  14.  
  15. (welcome)
  16.  
  17. (set lang
  18.     (askchoice
  19.         (prompt "Please select your preferred language")
  20.         (choices "english" "deutsch" "español")
  21.         (help @askchoice-help)
  22.     )
  23. )
  24.  
  25. (if (= lang 0) (
  26.    (set #install "Installing AHelp...")
  27.    (set #dir1 "Where do you want AHelp to be installed?\n(WBStartup is recommended)")
  28.    (set #dir2 "Where do you want AHelp Prefs to be installed?") 
  29.    (set #dir3 "Where do you want the AHelp documentation to be installed?") 
  30.    (set #dir4 "Where do you want the developer files to be installed?")
  31.    (set #finished "\nAHelp was successfully installed on your harddisk!\n\nHave fun!")
  32.    (set #language "\nSelect the language you want to use for AHelp")
  33.    (set #developer "\nWould you like to get the developer files\n(cd+ct) for translators installed?")
  34. ))
  35.  
  36. (if (= lang 1) (
  37.    (set #install "Installiere AHelp...")
  38.    (set #dir1 "Wo soll AHelp installiert werden?\n(empfohlen wird WBStartup)")
  39.    (set #dir2 "Wo soll der Voreinsteller für AHelp installiert werden?") 
  40.    (set #dir3 "Wo soll die Dokumentation für AHelp installiert werden?") 
  41.    (set #dir4 "Wo sollen die Entwicklerdateien installiert werden?")
  42.    (set #finished "\nAHelp wurde erfolgreich installiert!\n\nViel Spaß!")
  43.    (set #language "\nWählen Sie Ihre bevorzugte Sprache für AHelp")
  44.    (set #developer "\nMöchten Sie Entwicklerdateien\n(cd+ct) für Übersetzer installiert bekommen?")
  45. ))
  46.  
  47. (if (= lang 2) (
  48.    (set #install "Instalando AHelp...")
  49.    (set #dir1 "¿Dónde desea instalar AHelp?\n(se recomienda en el cajón WBStartup)") 
  50.    (set #dir2 "¿Dónde desea instalar el programa de preferencias de AHelp?")
  51.    (set #dir3 "¿Dónde desea instalar la documentación AHelp?")
  52.    (set #dir4 "¿Dónde desea instalar los ficheros de desarrollo?")
  53.    (set #finished "\n¡AHelp ha sido instalado con éxito en su sistema!\n\n¡Que lo disfrute!")
  54.    (set #language "\nElija el idioma que desea utilizar con AHelp")
  55.    (set #developer "\n¿Desea instalar los ficheros de\ndesarrollo para los traductores (cd+ct)?")
  56. ))
  57.  
  58. (set desti
  59.     (askdir
  60.         (prompt #dir1)
  61.         (help @askdir-help)
  62.         (default "SYS:WBStartup")
  63.     )
  64. )
  65.  
  66. (set dest1
  67.      (askdir
  68.             (prompt #dir2)
  69.             (help @askdir-help)
  70.             (default "SYS:Prefs")
  71.      )
  72. )
  73.  
  74. (set dest2
  75.      (askdir
  76.            (prompt #dir3)
  77.            (help @askdir-help)
  78.            (default "Help:")
  79.      )
  80. )
  81.  
  82. (set lang
  83.      (askchoice
  84.            (prompt #language)
  85.            (help @askchoice-help)
  86.            (choices "english" "deutsch" "español" "français (by Didier Giron)" "français (by Thillot Lionel)")
  87.      )
  88. )
  89.  
  90. (set dev
  91.      (askbool
  92.            (prompt #developer)
  93.            (help @askbool-help)
  94.      )
  95. )
  96.  
  97. (if (= dev 1) (
  98.    (set devdir
  99.        (askdir
  100.               (prompt #dir4)
  101.               (default "LOCALE:")
  102.               (help @askdir-help)
  103.        )
  104.    )
  105. )) 
  106.   
  107. (working #install)
  108.  
  109. (copyfiles
  110.    (source "WBStartup/AHelp")
  111.    (dest desti)
  112.    (nogauge)
  113.    (infos)
  114. )
  115.  
  116. (copyfiles
  117.    (source "Prefs/AHelp")
  118.    (dest dest1)
  119.    (nogauge)
  120.    (infos)
  121. )
  122.  
  123. (copyfiles
  124.    (source "AHelp.guide")
  125.    (dest   dest2)
  126.    (nogauge)
  127.    (infos)
  128. )
  129.  
  130. (textfile
  131.    (dest "ENVARC:AHelp.path")
  132.    (append desti)
  133. )
  134.  
  135. (copyfiles
  136.   (source "envarc:AHelp.path")
  137.   (dest   "env:")
  138.   (nogauge)
  139. )
  140.  
  141. (if (= lang 1) (
  142.    (copyfiles
  143.       (source "Catalogs/deutsch/AHelp.catalog")
  144.       (dest "Locale:Catalogs/deutsch")
  145.       (nogauge)
  146.    )
  147. ))
  148.  
  149. (if (= lang 2) (
  150.    (copyfiles
  151.       (source "Catalogs/español/AHelp.catalog")
  152.       (dest "Locale:Catalogs/español")
  153.       (nogauge)
  154.    )
  155. ))
  156.  
  157. (if (= lang 3) (
  158.    (copyfiles
  159.       (source "Catalogs/français/AHelp.catalog")
  160.       (dest "Locale:Catalogs/français")
  161.       (nogauge)
  162.    )
  163. ))
  164.  
  165. (if (= lang 4) (
  166.    (copyfiles
  167.       (source "Catalogs/français/AHelp1.catalog")
  168.       (dest "Locale:Catalogs/français")
  169.       (newname "AHelp.catalog")
  170.       (nogauge)
  171.    )
  172. ))
  173.  
  174. (if (= dev 1) (
  175.    (copyfiles
  176.       (source "Catalogs")
  177.       (dest devdir)
  178.       (pattern "AHelp#?")
  179.       (nogauge)
  180.    )
  181. ))
  182.  
  183. (copyfiles 
  184.    (source "WBStartup/dat/AHelp.info")
  185.    (dest "ENV:SYS")
  186.    (nogauge)
  187. )
  188.  
  189. (message #finished)
  190.  
  191. (exit (quiet))
  192.